COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE FED - III FILM FILE EDITOR - BGB - 20 MAY 1973.
C00004 00003	SUBR(DSKIN) DSK FILE INPUT - BGB 6 DEC 72.
C00006 00004	INITIALIZATION.
C00007 ENDMK
C⊗;
TITLE FED - III FILM FILE EDITOR - BGB - 20 MAY 1973.
	FLGBGB:0

SUBR(GETFIL)------------------------------------------------------
BEGIN GETFIL;SETUP FILE SPEC FROM TTY LINE - BGB - 10 DEC 72.
	DZM FILNAM
	DZM EXTION
	DZM EXTION+1
	DZM PPPN

	OUTSTR[ASCIZ/ FILE = /]
	LAC 1,[POINT 6,FILNAM,-1]↔LACI 2,6  ;EXPECT 6 CHR FILENAME.
	INCHWL↔CAIN 15↔GO[INCHWL↔POP2J]	    ;EXIT NO SKIP ON CRLF.
	AOSA(P)				    ;SKIP EXIT FILE NAME.

L:	INCHWL↔CAIL"a"↔SUBI 40		
	CAIN"."↔GO[LAC 1,[POINT 6,EXTION,-1]↔LACI 2,3↔GO L]
	CAIN"["↔GO[LAC 1,[POINT 6,PPPN,-1]  ↔LACI 2,3↔GO L]
	CAIN","↔GO[LAC 1,[POINT 6,PPPN,17]  ↔LACI 2,3↔GO L]
	CAIN"]"↔GO L
	CAIN 15↔GO EOL			;END OF THE LINE.
	CAIN 12↔GO EOL
	CAIG" "↔GO L	;IGNORE GARBAGE.
	SOJL 2,L↔SUBI 40↔IDPB 1↔GO L

EOL:	INCHWL
	SKIPN 1,EXTION↔LAC 1,ARG2↔DAC 1,EXTION
	SKIPN FLGBGB↔POP2J
;BGB'S DEFAULT PROJECT SPECIFICATION.
	SKIPN 1,PPPN
	LAC 1,ARG1
	DAC 1,PPPN
	POP2J
BEND;12/10/72------------------------------------------------------

FILNAM:	0	;FILE NAME.
EXTION:	0	;EXTENSION.
	0
PPPN:	0	;PROJECT-PROGRAMMER.
SUBR(DSKIN); DSK FILE INPUT - BGB 6 DEC 72.
BEGIN DSKIN;------------------------------------------------------

	INIT 1,17
	SIXBIT/DSK/↔0↔HALT

L1:	CALL(GETFIL,[SIXBIT/III/],[SIXBIT/DATBGB/])
	GO[RELEASE 1,↔POP0J]
	LOOKUP 1,FILNAM↔GO L1
	
;GET SIZE OF FILE.
	LAC PPPN
	LAPI BUF-1
	DAC DUMARG

	IN 1,DUMARG↔JFCL
	OUTSTR[ASCIZ"	EOF.
"]↔	RELEASE 1,
	POP0J

DUMARG:	0
	0

BEND DSKIN;20 MAY 1973 BGB----------------------------------------

BUF:	BLOCK =3000
;INITIALIZATION.
SA:
	CALL(DSKIN)
	LAC BUF+1↔DAC SIZ
	LACI BUF+2↔DAC PTR
	UPGIOT PTR
	GO SA
PTR:0
SIZ:0
END SA